home *** CD-ROM | disk | FTP | other *** search
- <?xml version="1.0" encoding="utf-8" ?>
- <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
- <stack>
- <name>in.0</name>
- <id>-1</id>
- <cardCount>63</cardCount>
- <cardID>2851</cardID>
- <listID>8760</listID>
- <cantModify><false /></cantModify>
- <cantDelete><true /></cantDelete>
- <cantAbort><false /></cantAbort>
- <cardSize>
- <width>512</width>
- <height>342</height>
- </cardSize>
- <script>∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞This script and all scripts contained inthe Bomb and Crash EncyclopediaCopyright © 1991 by MacSpect, Inc.All Rights Reserved WorlwideCommercial Distribution Restricted∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞on SetPasswordglobal CorrectPasswordput 134679852 into CorrectPasswordend SetPasswordon arrowKey directionif direction is "left" thenget the short id of prev cdif it is 2851 thenvisual scroll rightgo cd "Help"exit arrowKeyend ifif it is 33768 thengo cd "TitlePage"visual scroll rightexit arrowKeyend ifif it is 36369 thenvisual scroll rightgo cd "TitlePage"exit arrowKeyend ifvisual scroll rightgo previous cdelseif direction is "right" thenget the short id of next cdif it is 2851 thenvisual scroll leftgo cd "TitlePage"exit arrowKeyend ifif it is 33768 thenvisual scroll leftgo cd "TitlePage"exit arrowKeyend ifif it is 36369 thenvisual scroll leftgo cd "TitlePage"exit arrowKeyend ifvisual scroll leftgo next cdelsepass arrowKeyend ifend ifend arrowKeyon closeStackshow pict of cd "Logo"if the version ≥ 2.0 thenif the cantmodify of this stack is true thenexit closestackend ifend ifif the freesize of this stack / 1000 > 2then doMenu "Compact Stack"end closeStackon CodeFindask "Find which error code?"if it is empty then exit codefindput the name of this cd into CdStartpush cdif it ≥ 1 thenvisual dissolvego cd "E"& itend ifif it ≤ -1 thenvisual dissolvego cd "E_"& abs(it)end ifput the name of this cd into CdEndif CdStart = CdEnd thenplay boinganswer "Can't find it!" with "OK"end ifend Codefindon BcQuitanswer "Do you really want to quit HyperCard?"¬with "Yes" or "No"if it is "No" then exit BcQuitdoMenu "Quit HyperCard"end BcQuiton GoHomeanswer "Go to the Home stack?"¬with "Home..." or "Cancel"if it is "Cancel" then exit GoHomevisual barn door close slowgo homeend GoHomeon Helpvisual iris open slowgo cd "Help"end Helpon HC20play boinganswer "This stack was designed in HyperCard 1.2.5, it needs to be converted to this version of HyperCard to work properly. You can save a back-up copy of the stack before conversion."¬with "Save a Copy" or "Convert" or "Quit"if it is "Save a Copy" thendoMenu "Save a Copy..."ConvertHCexit HC20else if it is "Convert" thenConvertHCexit HC20else if it is "Quit" thenanswer "Where do you wish to go?" with "Desktop" or "Home stack" or "Cancel"if it is "Desktop" thendoMenu "Quit HyperCard"exit HC20else if it is "Home stack" thenvisual zoom closego homeexit HC20end ifend ifend HC20on ConvertHCanswer "Do you really want to convert this stack?" with "Yes" or "No"if it is "No" then exit ConvertHCput "Converting this stack to HyperCard " & the versionshow msgdoMenu "Convert Stack..." without dialogput emptyhide msgend ConvertHCon Flockpush cdrepeat with x=1 to the number of cardsgo cd xrepeat with y=1 to the number of cd fieldsset lockText of cd fld y to trueend repeatend repeatrepeat with x=1 to the number of backgroundsgo first card of bg xrepeat with y=1 to the number of fieldsset lockText of fld y to trueend repeatend repeatpop cdend Flockon Funlockpush cdrepeat with x=1 to the number of cardsgo cd xrepeat with y=1 to the number of cd fieldsset lockText of cd fld y to falseend repeatend repeatrepeat with x=1 to the number of backgroundsgo first cd of bg xrepeat with y=1 to the number of fieldsset lockText of fld y to falseend repeatend repeatpop cdend Funlockfunction LineNumb FldKind,mVput the mouseV into mVput the target into FldKindreturn(round((the scroll of FldKind / the textHeight¬of FldKind) + (((mV - item 2 of the rect of FldKind)¬div the textHeight of FldKind) + 1)))end LineNumbon PrintIndexif the version ≥ 2.0 thenif cantModify of this stack is true thenplay boinganswer "Unable to print with this version of HyperCard. The stack must first be converted."¬with "Convert" or "Cancel"if it is "Cancel" then exit PrintIndexConvertHCexit PrintIndexend ifend ifglobal CorrectPasswordget cd fld 4 of cd TitlePageif it is CorrectPassword thenplay boinganswer "Available to real registered users only."¬with "OK"exit PrintIndexend ifglobal cpwget cd fld 1 of cd TitlePageif it is not cpw thenplay boinganswer "Available to registered users only."¬with "OK"exit PrintIndexend ifput "Processing...."set the cursor to busylock screenput empty into fld "Index" of cd Print1put "_____________________________________" into line 1 ¬of fld "Index" of cd Print1put "The Bomb and Crash Encyclopedia v2.0" into line 2 ¬of fld "Index" of cd Print1get the short name of this cdif it is "SysIndex" then put "System" into FailTypeif it is "AppIndex" then put "Application" into FailTypeif it is "DPCIndex" then put "Disk, Port, Clock" into FailTypeput FailType & " Failures Index" into line 3 of fld "Index" ¬of cd Print1put "_____________________________________" into line 4 ¬of fld "Index" of cd Print1repeat with x = 1 to 1000get line x of fld "ErrorList"if it is empty then exit repeatput it into line x + 5 of fld Index of cd Print1end repeatpush cdgo cd Print1if the version ≥ 2.0 thenDoMenu "Print Field..."pop cdunlock screenexit PrintIndexend ifDoMenu "Print Report..."pop cdunlock screenput emptyhide msgend PrintIndex</script>
- <background id="2774" file="background_2774.xml" name="" />
- <background id="3440" file="background_3440.xml" name="" />
- <background id="5834" file="background_5834.xml" name="" />
- <background id="7180" file="background_7180.xml" name="" />
- <background id="9084" file="background_9084.xml" name="" />
- <background id="9409" file="background_9409.xml" name="" />
- <background id="33415" file="background_33415.xml" name="" />
- <background id="35959" file="background_35959.xml" name="" />
- <card id="2851" file="card_2851.xml" marked="false" name="Logo" owner="2774" />
- <card id="4061" file="card_4061.xml" marked="false" name="TitlePage" owner="3440" />
- <card id="6067" file="card_6067.xml" marked="false" name="SysIndex" owner="5834" />
- <card id="4880" file="card_4880.xml" marked="false" name="AppIndex" owner="5834" />
- <card id="7041" file="card_7041.xml" marked="false" name="DPCIndex" owner="5834" />
- <card id="9696" file="card_9696.xml" marked="false" name="E01" owner="9409" />
- <card id="8357" file="card_8357.xml" marked="false" name="E02" owner="9409" />
- <card id="10892" file="card_10892.xml" marked="false" name="E03" owner="9409" />
- <card id="11415" file="card_11415.xml" marked="false" name="E04" owner="9409" />
- <card id="11834" file="card_11834.xml" marked="false" name="E05" owner="9409" />
- <card id="12359" file="card_12359.xml" marked="false" name="E06" owner="9409" />
- <card id="12972" file="card_12972.xml" marked="false" name="E07" owner="9409" />
- <card id="13363" file="card_13363.xml" marked="false" name="E08" owner="9409" />
- <card id="14072" file="card_14072.xml" marked="false" name="E09" owner="9409" />
- <card id="14453" file="card_14453.xml" marked="false" name="E10" owner="9409" />
- <card id="14916" file="card_14916.xml" marked="false" name="E11" owner="9409" />
- <card id="15414" file="card_15414.xml" marked="false" name="E12" owner="9409" />
- <card id="16105" file="card_16105.xml" marked="false" name="E13" owner="9409" />
- <card id="16471" file="card_16471.xml" marked="false" name="E14" owner="9409" />
- <card id="17130" file="card_17130.xml" marked="false" name="E15" owner="9409" />
- <card id="17475" file="card_17475.xml" marked="false" name="E16" owner="9409" />
- <card id="35291" file="card_35291.xml" marked="false" name="E17" owner="9409" />
- <card id="37601" file="card_37601.xml" marked="false" name="E18" owner="9409" />
- <card id="37899" file="card_37899.xml" marked="false" name="E19" owner="9409" />
- <card id="38645" file="card_38645.xml" marked="false" name="E20" owner="9409" />
- <card id="39052" file="card_39052.xml" marked="false" name="E21" owner="9409" />
- <card id="39578" file="card_39578.xml" marked="false" name="E22" owner="9409" />
- <card id="39943" file="card_39943.xml" marked="false" name="E23" owner="9409" />
- <card id="40604" file="card_40604.xml" marked="false" name="E24" owner="9409" />
- <card id="18433" file="card_18433.xml" marked="false" name="E25" owner="9409" />
- <card id="19032" file="card_19032.xml" marked="false" name="E26" owner="9409" />
- <card id="19685" file="card_19685.xml" marked="false" name="E27" owner="9409" />
- <card id="19979" file="card_19979.xml" marked="false" name="E28" owner="9409" />
- <card id="4684" file="card_4684.xml" marked="false" name="E30" owner="9409" />
- <card id="20689" file="card_20689.xml" marked="false" name="E41" owner="9409" />
- <card id="21226" file="card_21226.xml" marked="false" name="E100" owner="9409" />
- <card id="10265" file="card_10265.xml" marked="false" name="E_33" owner="9409" />
- <card id="22087" file="card_22087.xml" marked="false" name="E_34" owner="9409" />
- <card id="22700" file="card_22700.xml" marked="false" name="E_35" owner="9409" />
- <card id="23155" file="card_23155.xml" marked="false" name="E_36" owner="9409" />
- <card id="23686" file="card_23686.xml" marked="false" name="E_37" owner="9409" />
- <card id="24279" file="card_24279.xml" marked="false" name="E_38" owner="9409" />
- <card id="24692" file="card_24692.xml" marked="false" name="E_39" owner="9409" />
- <card id="25253" file="card_25253.xml" marked="false" name="E_40" owner="9409" />
- <card id="25617" file="card_25617.xml" marked="false" name="E_42" owner="9409" />
- <card id="21555" file="card_21555.xml" marked="false" name="E_43" owner="9409" />
- <card id="26850" file="card_26850.xml" marked="false" name="E_44" owner="9409" />
- <card id="27301" file="card_27301.xml" marked="false" name="E_45" owner="9409" />
- <card id="27776" file="card_27776.xml" marked="false" name="E_46" owner="9409" />
- <card id="28409" file="card_28409.xml" marked="false" name="E_47" owner="9409" />
- <card id="28890" file="card_28890.xml" marked="false" name="E_48" owner="9409" />
- <card id="26211" file="card_26211.xml" marked="false" name="E_49" owner="9409" />
- <card id="29841" file="card_29841.xml" marked="false" name="E_50" owner="9409" />
- <card id="30249" file="card_30249.xml" marked="false" name="E_51" owner="9409" />
- <card id="30841" file="card_30841.xml" marked="false" name="E_53" owner="9409" />
- <card id="31415" file="card_31415.xml" marked="false" name="E_54" owner="9409" />
- <card id="31842" file="card_31842.xml" marked="false" name="E_57" owner="9409" />
- <card id="32484" file="card_32484.xml" marked="false" name="E_59" owner="9409" />
- <card id="32849" file="card_32849.xml" marked="false" name="E_60" owner="9409" />
- <card id="33933" file="card_33933.xml" marked="false" name="Help" owner="33415" />
- <card id="33768" file="card_33768.xml" marked="false" name="Print" owner="9084" />
- <card id="36369" file="card_36369.xml" marked="false" name="Print1" owner="35959" />
- <card id="6816" file="card_6816.xml" marked="false" name="Credits" owner="7180" />
- </stack>
-